home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / GIRIS.BAS < prev    next >
BASIC Source File  |  1995-12-06  |  441b  |  21 lines
  1. DECLARE SUB Giris (Veri$, Uzunluk)
  2.  
  3. CLS
  4. LOCATE 10, 20: PRINT "adìnìz:";
  5. CALL Giris(Veri$, 20)
  6.  
  7. SUB Giris (Veri$, Uzunluk)
  8.     COLOR 0, 7: PRINT SPACE$(Uzunluk);
  9.     PRINT STRING$(Uzunluk, CHR$(29));
  10.     Veri$ = ""
  11.     DO
  12.        DO: A$ = INKEY$: LOOP UNTIL A$ <> ""
  13.        IF ASC(A$) = 27 THEN EXIT DO
  14.        PRINT A$;
  15.        Veri$ = Veri$ + A$
  16.        IF LEN(Veri$) = Uzunluk THEN EXIT DO
  17.     LOOP
  18.     COLOR 7, 0
  19. END SUB
  20.  
  21.